home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / pc / guide04.dir / 00008_Script_fr loop7 < prev    next >
Text File  |  1996-01-17  |  399b  |  22 lines
  1. on exitFrame
  2.   global PathSepChar
  3.   if the timer < (5 * 60) OR soundBusy(1) then
  4.     go to the frame
  5.   else
  6.     set the timer = 0
  7.     StartTimer
  8.     repeat while the timer < (1 * 60)
  9.     end repeat
  10.     put the PathName & "AUDIO" & PathSepChar & "RS05.AIF" into WhichSound
  11.     sound Playfile 1, WhichSound
  12.     set the timer = 0
  13.     StartTimer
  14.     go to "Loop8"
  15.   end if
  16. end
  17.  
  18.  
  19.  
  20.  
  21.  
  22.